home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 37
/
Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso
/
Aminet
/
dev
/
asm
/
Tandem2.68.lha
/
Tandem
/
Jottings
/
RefSheet
next >
Wrap
Text File
|
2000-04-02
|
9KB
|
149 lines
Quick Reference Sheet for tandem.library MACROs (RefSheet v.0.00 27.11.97)
----------------------------------------------------------------------------
TLaschex \1=addr of asc A0 points past D0 = val EQ if zero
TLaslfile \1,\2=fil,dir prompts \3hail strnum \4=sv/ld EQ if bad/canc
TLaslfont \1=num (then call TLnewfont) EQ=bad/canc
TLassdev no param NE=yes
TLattach A5=wsuw \1=addr \2=size no result (mem must be AllocVec)
TLbad \1=strnum
TLbusy no params no result (ok to call if already busy)
TLbutmon \1,\2=TLKeyboard D1,D2 EQ=no button, 1+=button 1+
TLbutprt no params EQ if bad (resized)
TLbutstr \1=addr string w. \ separators no result
TLbuttxt \1=addr string w. \ separators EQ if bad (resized)
TLchip \1=bytes D0=addr or EQ=bad
TLclosefile no params no result (ok to call if already closed)
TLdata \1=1st line \2=no. of lines (later call TLreqoff) (EQ if bad)
TLdropdown \1=draw/drop \2=1st string \3=num strings
[\4=selected(1+) dflt 1] \5,\6=xpos,ypos
[\7=max chrs dflt=0=calc][\8=max drop 5 to 14, dflt 7 OR cycle]
if \1=draw, all regs saved, EQ if bad
if \1<>draw D0=1+, 0 if none/canc
TLellipse \1,\2=centre \3,\4=axes \5,\6=min x,y \7,\8=max x,y
[\9 rastport] [\10=solid] (no \10 if outline)(no \9 if AcWind)
EQ if window resized (\9,\10 can be null)
TLerror no params EQ=dos error found, when error num in D0
TLfloat \1=addr in \2=addr out(.P type)12 bytes EQ=bad 3(a1)=0 if=0
TLfreebmap \1=addr of bitmap no result (must have been made w. AllocVec!)
TLfsub \1=fontnum no result
TLgetarea \1,\2=min x,y \3,\4=max x,y \5=16 bytes for result EQ if canc
(result: 0,4=topleft; 8,12=botright)
TLgetfont \1=name \2=number \3=height (then call TLnewfont)
TLgetilbm \1=max planes, \2=790 byte buffer for BMHD,CMAP
[\3=nobody = don't load BODY] [\4=public] if pub mem for bmap]
returns A0=bitmap if body loaded, else A0 unchanged EQ if bad
TLhexasc \1=val \2=addr A0 bypasses output
TLhexasc16 \1=val \2=digts 1-8, or 0=left justify \3=addr A0 bypasses opt
TLinput no params no result
TLkeyboard no params D0-D3=ascii mousex mousey bits
bits: 0shift 3ctrl 4alt 6leftamiga 7rightamiga
special ascii retn$0D esc$1B lmb$80 F1=F10$81-$8A bs$8B tab$8C
del$8D up$8E down$8F right$90 left$91 help$92
close$93 gadup$94 size$96 inactive$97 boopsi$99
menu$95, when d1,d2,d3=column,choice,sub -1=none
scroll$98, when d1,d2 = horz top,vert top
TLmget no params NE if message in D0-D3
TLmultiline \1= multiline forbids \2=reqedit forbids EQ if bad
#xxp_xmsty,#xxp_xesty for plaintext set bit 31 of d0 for lock
TLnewfont \1=num \2=style [\3=0main/1req/2help dflt 0] EQ=bad
TLnm \1=title/item/sub/end \2=labl str/-1 bar [\3flags [\4mut excl]]
TLoffmenu \1=menu \2=item \3=sub (-1 if n.a.) }first call
TLonmenu \1=menu \2=item \3=sub (-1 if n.a.) }TLreqmenu
TLopenread no params EQ=bad (calls TLclosefile if bad)
TLopenwrite no params EQ=bad (calls TLclosefile if bad)
TLoutput no params no result
TLoutstr \1=strnum no result
TLpassword \1=chrs EQ if bad D0=$1B if canc
TLpict \1=num(0-11) \2=xpos \3=ypos EQ=bad
TLprefdir \1=dir addr (excl ENV:) \2=use/save
e.g. for ENV:Foo/Bar/Fred call w. Foo, Foo/Bar, then preffil
TLpreffil \1=path addr (excl ENV:) \2=use/save \3=addr \4=bytes
TLprefs [\1=color to allow palette] no result
TLprogdir no params no result
TLprogress \1=progress \2=total [\3=txt] dflt no text
TLpublic \1=bytes D0=addr or EQ=bad
TLputilbm \1,\2,\3,\4=where \5=bitmap (xxp_Screen CMAP) filename in buff
TLreadfile \1=from \2=max bytes EQ=bad D0=bytes read (0=good)
TLreqarea \1,\2=posn \3,\4=size [\5=pen] [\6=rastport, no \6 AcWind]
EQ if window resized
TLreqbev \1,\2=posn \3,\4=size [\5=rec recessed, \5=box unbevelled]
[\6 rastport (no \6, AcWind)] [\7 front pen] [\8 back pen]
EQ if window resized
TLreqchek \1=width \2=height EQ if won't fit
TLreqchoose \1=1st strnum [\2=no. choices(dflt 1,ignre \1)] D0=1+ or EQ=bad
TLreqcls no params no result
TLreqcolor \1=0:pen only, 1:pen+palette, 2:palette only 1+=choice
(or, \1=-1 for load prefs palette, no result)
TLreqedit \1=tablet xpos \2=tablet ypos \3=tags (see end), or
\3=0/1 for default tags for plain/styl, when:
[\4=max chrs, dflt 20str,4num,8hex][\5=tablet width dflt none]
[\6=txt max width deflt none][\7=menu num dflt none]
[\8=str/num/hex dflt str] EQ if bad
TLreqfont \1 = forbids: bit 0-9 = fonts 0-9 (forbids load/reload them)
returns D0=0canc, 1-10 = font 0-9
TLreqfull no params no result
TLreqinfo \1=strnum [\2=num strs(dflt 1) [\3=1/2/3(dflt 1) 1ok 2ok\canc]]
3=last str 1+ choices sep by \'s result: D0=1+ or EQ=bad
TLreqinput \1=titl [\2=num/str/hex(dfl str) [\3=len(dfl str20 num4 hex8)]]
result in D0 if num/hex EQ=canc/bad (xxp_errn=0 if canc)
TLreqmenu \1=TLnm menu struc EQ=bad }sets up menu }see also
TLreqmuclr no params no result }activates menu }TLonmeu
TLreqmuset no params no result }inactivates menu }TLoffmenu
TLreqoff no params no result
TLreqon \1=dummy xxp_wsuw entry (TLreqredi first) EQ=bad
TLreqredi \1=dummy xxp_wsuw entry
TLreqshow \1=hook \2=hail \3=total strs \4=strs fit [[[\5=init(dflt 0)]
\6='seek'|'smart' dflt no seek] \7=init comp line(dflt none)]
on return, EQ=bad
hook on call: see D0 bits 31,30:
00 make string num D0 bits 0-29, rts w. string at (a0)
10 string bits 0-29 has been clicked, when return:
D0-ve do nothing; D0=0 quit; D0=1 redraw w. no comp
D0=2 redraw w. comp; D0=3 redraw, use D1,D3 as new \3,\5
11 do smart search from bits 0-29
D1 = 3/4/5 = fore/back/left, sought in xxp_patt(a4)
return D0 = where, or D0=-1 = unfound, or D0=-2 = do dumb
TLresize \1,\2=topleft \3,\4=oldsize \5,\6=newsize [\7=BgPen dflt 0]
[\8=rastport] if no \8, uses AcWind EQ = widow resized
TLscreen \1=planes \2=title \3=pens [\4=DisplayID dflt HIRES] EQ=bad
TLslider \1=window wsuw EQ=bad
TLslimon \1-\3=callinf TLkeyboard D1-D3, A5=AcWind EQ=no,NE=yes
TLstra0 \1=strnum no result
TLstring \1=strnum \2=xpos \3=ypos no result
TLstrbuf \1=strnum no result
TLtabmon \1,\2=TLkeyboard D1,D2; \2,\3=xpos,ypos
returns EQ,D0=0 if none clicked, else NE, D0=1+
TLtabs setup: \1=strnum \2=minwidth \3=body height
render: \1=0 \2=frontcard(1+) \3=xpos \4=ypos (EQ=bad)
kill: \1=0 \2=0 \3=xpos \4=ypos
TLtext \1=xpos \2=ypos no result
TLtrim \1=xpos \2=ypos EQ=bad(resized)
TLtsize no params D4=width D5=chrs D6=font ht D7=font baseline
TLunbusy no params no result (ok to call if already unbusy)
TLwcheck no params EQ=same
TLwclose no params no result (Front.i calls automatically)
TLwfront no params no result
TLwindow \1=num \2,\3=where \4,\5=min \6,\7=max \8=flags \9=title EQ=bad
\8=0 for normal; \8=1 for borderless \8=-1 for scrollers
\6 &/or \7 can be -ve (not -1) for InnerWidth/InnerHeight
TLwindow0 no parmams (needs st_1=title) EQ=bad
TLwpoll no params D0-D3 per TLMmess (i.e. popped window TLkeyboard)
TLwpop \1=num no result
TLwritefile \1=from \2=bytes EQ=bad (calls TLclosefile if bad)
TLwscroll \1=set/get Data in xxp_scrl: set sets all, get sets hztp,vttt
\2=vert/both/horz (default both)
TLwslof no params no result
TLwsub \1=num no result
TLwupdate no params no result
TLreqedit tags,styl bits....
xxp_xtext dflt xxp_FWork xxp_xoffs xxp_xcspc xxp_xtral xxp_xfgbg xxp_xfont
xxp_xstyl dflt all 0 xxp_xforb xxp_xmaxj xxp_xunpk xxp_xffix xxp_xresz
xxp_xmaxt tablet width xxp_xcomp xxp_xkybd xxp_xpack xxp_xjam1 xxp_xmenu
xxp_xmaxc max chrs 1-254 xxp_xstyb xxp_xredo xxp_xiclr xxp_xcase xxp_xmaxw
xxp_xcrsr 0+, 255=eol, -1none OR xxp_nprt=-1=don't print
xxp_xtask 0=ascii no cont 1=ascii w. cont 2=dec num 3=hex num
xxp_xltyp 0=ljust 1=centre 2=rjust 3=full just
styl bits: 0bold 1ital {2undl 3sup 4sub 5dotd (&c)} 5shad 6wide